home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / TC.LSP < prev    next >
Text File  |  1992-09-13  |  1KB  |  38 lines
  1. ;Modified version of ct.lsp for release 11
  2. ;
  3. ;
  4. (setq oer   *error*  *error*  err2)
  5. (setq set1 (ssget))
  6. (if(= set1 nil)(err))
  7. (setq len (sslength set1))
  8. (setq c 0)
  9. (if (> len 0)
  10. (progn
  11. (setq kp (strcase
  12. (getstring "Change Rotation/Oblique/Height/Width/Style/<T>ext: ")))
  13. (cond
  14. ((OR (= kp "T") (= kp ""))
  15. (setq t1 (getstring T "Enter new text string: "))
  16. (setq sub1 1))
  17. ((= kp "H")
  18. (setq t1 (getreal "Enter new text height: "))
  19. (setq sub1 40))
  20. ((= kp "R")
  21. (setq t1 (* pi (/ (getreal "\nNew rotation angle: ") 180.0)))
  22. (setq sub1 50))
  23. ((= kp "O")
  24. (setq t1 (* pi (/ (getreal "\nNew obliquing angle: ") 180.0)))
  25. (setq sub1 51))
  26. ((= kp "W")
  27. (setq t1 (getreal "Enter new text width: "))
  28. (setq sub1 41))
  29. ((= kp "S")
  30. (setq t1 (getstring "Enter new text style: "))
  31. (setq sub1 7))
  32. (T (setq sub1 0)))
  33. (if (> sub1 0)(progn(while (< c len)
  34. (setq ename (ssname set1 c))
  35. (setq te (entget ename))
  36. (if (= (cdr (assoc 0 te)) "TEXT") (sub sub1 t1))
  37. (entmod te)
  38. (setq c (1+ c)))))))(princ)